home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 601-625 / apd601 / lateral_quiz 16 / quiz_16.amos / quiz_16.amosSourceCode < prev    next >
AMOS Source Code  |  1986-08-03  |  51KB  |  2,197 lines
  1. '                                    
  2. '********************************************************************* 
  3. '*                                                                   * 
  4. '* Some screen wipes adapted from Marvin the Martian free with...... * 
  5. '* Amos in Action by Anne & Len Tucker and used with their sanction. * 
  6. '*          The Sample bank is also from the same source                                                                 * 
  7. '*                      Buy it, its worth it !!                      *                                            *    
  8. '*                                                                   * 
  9. '********************************************************************* 
  10. Cls 0
  11. Screen Open 1,640,256,16,Hires
  12.  Cls 0 : Curs Off : Flash Off : Hide 
  13. 'Load Iff "Birdy" : Rem this is loaded in then spacked so is not needed    
  14. 'Spack 1 To 6 : Rem Nor this line
  15. Unpack 6 To 1
  16.  Palette 1
  17. Screen Open 2,640,256,16,Hires
  18. Curs Off : Flash Off : Hide : Cls 0
  19. Get Palette 1
  20. _SPLURGE[2,1,2]
  21. Wait 500
  22. Curs Off : Flash Off 
  23. Cls 0 : Curs Off : Flash Off : Hide 
  24. Paper 0
  25. Ink 0
  26. Bar 0,0 To 10,10
  27. Screen Open 1,640,256,16,Hires
  28. Paper 0 : Pen 4 : Curs Off : Flash Off : Hide : Cls 0
  29. Wave 0 To 15
  30. Locate ,0
  31. Wait 50
  32. Locate ,3 : Centre "Welcome to Bird Productions Quiz "
  33.  Bell 
  34. Wait 50
  35. Locate 0,1
  36.  For X=79 To 0 Step -1
  37.     Play 96-(20+(X/2)),0
  38.    Print "?";
  39. Next X
  40. Wait 50
  41. Locate 0,5
  42.  For L=79 To 0 Step -1
  43.    Play 96-(10+(L/2)),0
  44. Print "?";
  45.  Next L
  46. Wait 150
  47. Paper 0 : Pen 5 : Curs Off : Flash Off : Hide : Cls 0
  48. Wave 0 To 15
  49. Locate ,0
  50. Wait 50
  51. Locate ,9 : Centre "Loading Please Wait" : Bell 
  52. Locate 0,7
  53.    For G=79 To 0 Step -1
  54.      Play 96-(20+(G/2)),0
  55.   Print "*";
  56.  Next G
  57. Wait 50
  58. Locate ,9 : Centre "Loading Please Wait" : Bell 
  59. Locate 0,11
  60.  For K=79 To 0 Step -1
  61.    Play 96-(10+(K/2)),0
  62.  Print "*";
  63. Next K
  64. Wait 100
  65. Get Fonts 
  66. 'Load "df1:samples.abk"
  67. 'Load "df1:fill_in.abk"
  68. Screen Open 0,320,40,16,Lowres : Curs Off 
  69. Screen Open 1,320,40,16,Lowres : Curs Off : Screen Hide 1
  70. Screen 0
  71. Set Font 6 : Text 45,12,"Bird Productions Present"
  72. Print : Print 
  73. Wait 100
  74. Pen 6
  75. Locate 6,3 : Print "A Lateral Thinking Quiz No.12"
  76. Screen Copy 0 To 1
  77. Screen Open 1,320,40,16,Lowres : Curs Off : Screen Hide 1 : 
  78. Screen 1
  79. Set Font 1 : Text 40,12,"Programming by John the Doc."
  80. Wait 115
  81. Print : Print 
  82. Locate 4,3 : Print "Hampered by Social Workers 20-5-93"
  83. Wait 115
  84. Fade 17
  85. Appear 1 To 0,3
  86. Wait 115
  87. Fade 17
  88. Cls 0
  89. Wait 75
  90. Screen Open 0,320,256,32,LORES
  91. Cls 0 : Curs Off : Flash Off : Hide 
  92. Palette $905
  93. Cls 0 : Curs Off 
  94. Paper 0 : Pen 5
  95. Locate 1,10 : Bell : Print "You are being started with some quite   "
  96. Locate 2,12 : Print "easy ones.They will get harder!!!!!"
  97. Wait 175
  98. Paper 0 : Pen 4
  99. Locate ,15 : Bell : Centre "You are playing against yourself."
  100. Wait 155
  101. Locate ,17 : Bell : Centre "There is no need to type anything"
  102. Wait 200
  103. Locate ,15 : Centre "                                   "
  104. Locate ,17 : Centre "                                   "
  105. Pen 4
  106. Locate ,15 : Bell : Centre "This takes about 30 Minutes to complete"
  107. Wait 150
  108. Locate ,17 : Bell : Centre "To help you it can be split into two"
  109. Wait 150 : Locate ,19 : Bell : Centre "Follow on screen instructions"
  110. Wait 250
  111. Locate 1,10
  112. Locate 1,10 : Print "                                         "
  113. Locate 2,12 : Print "                                     "
  114. Pen 5
  115. SDF:
  116. Wait 50 : Locate ,10 : Bell : Centre "Press F1 to start at the beginning"
  117. Wait 100 : Locate ,12 : Bell : Centre "Press F2 to start halfway through "
  118. Wait 50
  119. Say "Press me pleas 1 needs it"
  120. Wait Key 
  121. If Key State(80)=True Then Gosub ALLOFF
  122. If Key State(81)=True Then Gosub SALFOFF
  123. '
  124. ALLOFF:
  125. ALL
  126. Music 1
  127. OPENBIT
  128. GAIN
  129. IAIN
  130. WAIN
  131. VAIN
  132. JUAIN
  133. SAIN
  134. YAIN
  135. DAIN
  136. KAIN
  137. QAIN
  138. Goto SECOND
  139. SALFOFF:
  140. ARF
  141. OPENBIT
  142. SECOND:
  143. FAIN
  144. HAIN
  145. MAIN
  146. XAIN
  147. AAIN
  148. BAIN
  149. CAIN
  150. ZAIN
  151. UAIN
  152. LAIN
  153. LASTBIT
  154. '
  155. '
  156. '
  157. Procedure BAIN
  158. Screen Open 0,320,256,32,LORES
  159.  Curs Off : Hide : Flash Off : Cls 0
  160. Sam Play 8,4,14000
  161. Palette $F76
  162. SCNON[SCR]
  163. Cls 0 : Curs Off : Flash Off 
  164. Locate ,3
  165. Paper 0 : Pen 4
  166. Centre "What is this well known saying ?"
  167. Wait 175
  168. Locate ,3 : Cline 
  169. Wait 100
  170. Paper 2 : Ink 2
  171. Ink 5
  172. Ink 6
  173. Bar 90,80 To 234,140
  174. Box 89,79 To 235,141
  175. Ink 4
  176. Box 88,78 To 236,142
  177. Ink 3
  178. Box 87,77 To 237,143
  179. Ink 2
  180. Box 86,76 To 238,144
  181. Wait 150
  182.  Pen 4 : Paper 6
  183. Locate 17,12 : Wait 40 : Sam Play 8,5,10000 : Print "L"
  184. Locate 18,12 : Wait 40 : Sam Play 8,5,10000 : Print "I"
  185. Locate 19,12 : Wait 40 : Sam Play 8,5,10000 : Print "V"
  186. Locate 20,12 : Wait 40 : Sam Play 8,5,10000 : Print "I"
  187. Locate 21,12 : Wait 40 : Sam Play 8,5,10000 : Print "N"
  188. Locate 22,12 : Wait 40 : Sam Play 8,5,10000 : Print "G"
  189. 'Wait 100 : Pen 5
  190. Locate 18,14 : Wait 40 : Sam Play 8,5,10000 : Print "L"
  191. Locate 19,14 : Wait 40 : Sam Play 8,5,10000 : Print "A"
  192. Locate 20,14 : Wait 40 : Sam Play 8,5,10000 : Print "C"
  193. Locate 21,14 : Wait 40 : Sam Play 8,5,10000 : Print "E"
  194. Wait 100
  195. Paper 0 : Pen 2
  196. Locate ,19 : Centre "You have 26.5 seconds to think !"
  197. Wait 150
  198. Locate ,21 : Centre "I'm bored with 30 seconds !!"
  199. Wait 100
  200. Locate ,19 : Cline 
  201. Locate ,21 : Cline 
  202. Wait 300
  203. ZHHJ:
  204. Locate 4,19 : Print "                                  "
  205. Locate 8,19 : Print "Press the A key for answer     "
  206. Clear Key 
  207. Wait Key 
  208. If Key State(32)=True Then Gosub ZGHG Else Goto ZHHJ
  209. ZGHG:
  210. Locate 10,19
  211. Centre "                                     "
  212. Locate ,21
  213. Centre "The answer is ... "
  214. Wait 100
  215. Locate ,21
  216. Centre "                  "
  217. Pen 2
  218. Sam Play 8,1,10000
  219. Locate 9,21 : Print "Living on a Shoestring !"
  220. Locate 22,26
  221. Wait 100
  222. Pen 2
  223. Centre "Were You Right ?"
  224. Wait 150
  225. Paper 0 : Pen 5
  226. Locate ,26 : Centre "If you dont understand press HELP "
  227. Locate ,28 : Centre "Or press spacebar to continue"
  228. ZVFR:
  229. Wait 75
  230. Clear Key 
  231. Wait Key 
  232. If Key State(95)=True Then Gosub ZDMM Else Goto ZJO
  233. ZJO:
  234. If Key State(64)=True Then Gosub ZCTC Else Bell : Wait 10 : Bell : Wait 10 : Bell : Locate ,26 : Centre "THicko you pressed the wrong key" : Goto ZVFR
  235. Wait 50
  236. ZDMM:
  237. Locate ,26 : Centre "                                       "
  238. Locate ,28 : Centre "                                       "
  239. Paper 0 : Pen 5
  240. Sam Play 8,6,10000
  241. Locate ,26 : Pen 6 : Centre "Living on a shoelace...Pinbrain !"
  242. Wait 100 : Sam Play 8,1,10000
  243. Locate ,28 : Centre "Are you living in a DREAM ?"
  244. Wait 200
  245. Locate ,30 : Pen 4 : Centre "press SPACE BAR to continue"
  246. Wait 75
  247. Clear Key 
  248. Wait Key 
  249. ZFRT:
  250. If Key State(64)=True Then Gosub ZCTC Else Goto ZFRT
  251. ZCTC:
  252. Fade 7
  253. Wait 150
  254. Cls 0
  255. End Proc
  256. Procedure AAIN
  257. Sam Play 8,4,14000
  258. Screen Open 0,320,256,32,LORES
  259. Cls 0 : Flash Off : Curs Off : Hide 
  260. Palette $419
  261. Cls 0 : Curs Off : Flash Off 
  262. Locate ,3 : Paper 0
  263. Wait 150
  264. Locate ,3 : Cline 
  265. Locate ,3
  266. Centre "What is this well known saying ?"
  267. Wait 100
  268. Locate ,3 : Cline 
  269. Wait 60
  270. Ink 3
  271. Bar 80,90 To 250,160
  272. Box 79,89 To 251,161
  273. Ink 6
  274. Box 78,88 To 252,162
  275. Ink 1
  276. Box 77,87 To 253,163 : Box 76,86 To 254,164
  277. Wait 100
  278. Sam Play 8,2,10000
  279. Locate 15,15 : Paper 3 : Pen 6 : Print "M"
  280. Wait 40 : Sam Play 8,2,10000
  281. Locate 17,15 : Print "U"
  282. Wait 40 : Sam Play 8,2,10000
  283. Locate 19,15 : Print "R"
  284. Wait 40 : Sam Play 8,2,10000
  285. Locate 21,15 : Print "D"
  286. Wait 40 : Sam Play 8,2,10000
  287. Locate 23,15 : Print "E"
  288. Wait 40 : Sam Play 8,2,10000
  289. Locate 25,15 : Print "R"
  290.  Wait 75
  291. Locate ,21 : Paper 0 : Centre "You have 30 seconds to think"
  292. Wait 100
  293. Locate ,21 : Cline 
  294. Wait 300
  295. HLL:
  296.  Locate 8,21 : Paper 0 : Pen 2 : Print "Press the A key for answer     "
  297. Clear Key 
  298. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  299. HVS:
  300. Locate 8,21 : Print "                              "
  301. Wait 50
  302. Locate 19,21 : Pen 2 : Paper 0
  303. Centre "The answer is ..."
  304. Wait 105 : Locate 19,21 : Centre "                 "
  305. Sam Play 8,1,10000
  306. Locate 12,21 : Print "It's Blue Murder!"
  307. Wait 175
  308. Wait 150
  309. Paper 0 : Pen 4
  310. Locate ,26 : Centre "If you dont understand press HELP "
  311. Wait 150
  312. Locate ,28 : Centre "Or press spacebar to continue"
  313. HNKP:
  314. Wait 75
  315. Clear Key 
  316. Wait Key 
  317. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  318. HONDAY:
  319. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  320. Wait 100
  321. HSW:
  322. Locate ,26 : Cline 
  323. Locate ,23 : Cline 
  324. Locate 2,28 : Print "                                    "
  325. Paper 0 : Pen 2
  326. Sam Play 8,6,5000
  327. Locate 0,23 : Centre "Come On! MURDER is Blue !"
  328. Wait 150
  329. Sam Play 8,6,5000
  330. Locate ,25 : Centre ".....Double DODO..... !"
  331. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  332. Clear Key 
  333. Wait Key 
  334. HAAB:
  335. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  336. Wait 75
  337. HAAC:
  338. Locate ,26 : Cline 
  339. Locate ,28 : Cline 
  340. Locate ,21 : Cline 
  341. Locate ,30 : Cline 
  342. Locate ,25 : Cline 
  343. Locate ,29 : Cline 
  344. Locate ,27 : Cline 
  345. Locate ,23
  346. Centre "I'm going to write on the ceiling now !!"
  347. Locate ,25 : Centre "Byeeee"
  348. Wait 150
  349. SCNOFF[SCR]
  350. Wait 150
  351. Cls 0
  352. End Proc
  353. Procedure XAIN
  354. Screen Open 0,320,256,32,LORES
  355. Flash Off : Hide : Curs Off 
  356. Cls 0
  357. Sam Play 8,4,14000
  358. Palette $909
  359. Locate ,1 : Paper 0 : Centre "What is this everyday phrase?"
  360. Wait 155 : Locate ,1 : Cline 
  361. Wait 75
  362. Ink 3 : 
  363. Circle 155,84,61
  364. Ink 4
  365. Circle 155,84,62
  366. Ink 1
  367. Circle 155,84,63
  368. Ink 6
  369. Circle 155,84,64
  370. Ink 5
  371. Circle 155,84,60
  372. Paint 161,82
  373. Wait 100
  374. Paper 5
  375. Wait 40
  376. Sam Play 8,7,10000
  377. Locate 16,10 : Pen 6 : Print "N"
  378. Wait 40
  379. Sam Play 8,7,10000
  380. Locate 18,10 : Pen 4 : Print "O"
  381. Wait 40
  382. Sam Play 8,7,10000
  383. Locate 20,10 : Pen 3 : Print "T"
  384. Wait 40
  385. Sam Play 8,7,10000
  386. Locate 22,10 : Pen 4 : Print "E"
  387. Wait 200
  388. Ink 3
  389. Bar 120,76 To 190,90
  390. Paper 0
  391. Locate ,21 : Pen 4 : Centre "You have 30 seconds to think"
  392. Wait 120 : Locate ,21 : Centre "                             "
  393. Wait 250
  394. Locate ,25 : Centre "Press the A key for the answer"
  395. JUGH:
  396. Clear Key 
  397. Wait Key 
  398. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  399. YUK:
  400. Locate ,25 : Cline 
  401. Paper 2
  402. Paper 0
  403. Pen 3
  404. Locate 11,22 : Print "The answer is .....   "
  405. Wait 120 : Locate ,22 : Centre "                        "
  406. Sam Play 8,1,10000
  407. Locate 13,22 : Pen 5 : Print "A Cover Note !"
  408. Wait 175
  409. Sam Play 8,1,10000
  410. Locate 13,24 : Print "Were you right"
  411. Wait 150
  412. Locate ,24 : Pen 3 : Centre "If you dont understand press'Help'"
  413. Wait 55
  414. Locate ,26 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  415. Clear Key 
  416. Wait Key 
  417. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  418. DITHO:
  419. Locate ,26 : Cline 
  420. Locate ,24 : Cline 
  421. Sam Play 8,6,10000
  422. Locate ,24 : Centre "I can only repeat the answer...DUMBO!!"
  423. Wait 125
  424. Sam Play 8,6,10000
  425. Locate ,26 : Centre "Note is covered up PLANK !!"
  426. Wait 100
  427. Locate ,28 : Pen 4 : Centre "Press Spacebar to continue"
  428. Clear Key 
  429. Wait Key 
  430. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  431. GROO:
  432. Wait 25
  433. Fade 7
  434. Wait 150
  435. Cls 0
  436. End Proc
  437. Procedure UAIN
  438. Sam Play 8,4,14000
  439. Screen Open 0,320,256,32,LORES
  440. Cls 0 : Flash Off : Curs Off : Hide 
  441. Ink 0
  442. Bar 0,0 To 10,10
  443. Locate ,2 : Paper 0 : Centre "What is this well known saying ?"
  444. Wait 150
  445. 'Load Iff "df1:shake"
  446. 'Spack 0 To 2
  447. 'Wait 50 
  448. Sam Play 8,2,10000
  449. Unpack 2 To 0
  450. Wait 150
  451. Locate ,24 : Paper 6 : Pen 2 : Centre "You have 30 seconds to think"
  452. Wait 125
  453. Locate ,24 : Cline 
  454. Wait 300
  455. HLL:
  456.  Locate 8,24 : Pen 1 : Paper 6 : Print "Press the A key for answer     "
  457. Clear Key 
  458. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  459. HVS:
  460. Locate 8,24 : Print "                              "
  461. Wait 50
  462. Locate 19,24 : Pen 2
  463. Centre "The answer is ..."
  464. Wait 75 : Locate 19,24 : Centre "                 "
  465. Sam Play 8,1,10000
  466. Paper 6
  467. Locate 10,24 : Pen 10 : Centre "Pot Black !"
  468. Locate 12,28
  469. Wait 150 : Pen 10
  470. Print "Were You Right ?"
  471. Wait 150
  472. Locate ,28 : Cline 
  473. Locate ,26 : Cline 
  474. Sam Play 8,2,10000
  475. Locate ,26 : Pen 3 : Centre "If you dont understand press HELP "
  476. Wait 150
  477. Sam Play 8,2,10000
  478. Locate ,28 : Centre "Or press spacebar to continue"
  479. HNKP:
  480. Wait 75
  481. Clear Key 
  482. Wait Key 
  483. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  484. HONDAY:
  485. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  486. Wait 100
  487. HSW:
  488. Sam Play 8,7,10000
  489. Locate ,26 : Cline 
  490. Locate 2,28 : Print "                                    "
  491.  Pen 10
  492. Sam Play 8,6,10000
  493. Locate ,26 : Centre "Pot is Black.Are you colour blind Dumbo!"
  494. Wait 250
  495. Sam Play 8,7,10000
  496. Locate ,28 : Centre "It's a T.V.Proggy.Open Your EYES !! "
  497. Wait 150
  498. Locate ,26 : Cline 
  499. Locate ,28 : Cline 
  500. Wait 75
  501. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  502. Clear Key 
  503. Wait Key 
  504. HAAB:
  505. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  506. Wait 75
  507. HAAC:
  508. WIPE
  509. Cls 0
  510. Wait 150
  511. End Proc
  512. Procedure CAIN
  513. Screen Open 0,320,256,16,LORES
  514. Curs Off : Flash Off : Hide : Cls 0
  515. Sam Play 8,4,14000
  516. Palette 111
  517. Locate ,4 : Paper 0 : Pen 4 : Centre "What is this well known Phrase ?"
  518. Wait 150
  519. Locate ,4 : Cline 
  520. Wait 50
  521. Ink 4
  522. Bar 94,53 To 217,135
  523. Ink 2
  524. Box 93,53 To 218,136
  525. Ink 6
  526. Box 92,52 To 219,137
  527. Ink 2
  528. Box 91,51 To 220,138
  529. Ink 3
  530. Box 90,50 To 221,139
  531. Wait 50
  532. Sam Play 8,2,10000
  533. Paper 4 : Pen 6
  534. Locate 14,9 : Print "H"
  535. Wait 50
  536. Sam Play 8,2,10000
  537. Locate 12,11 : Print "H"
  538. Wait 50
  539. Sam Play 8,2,10000
  540. Locate 14,11 : Print "I"
  541. Wait 50
  542. Sam Play 8,2,10000
  543. Locate 14,13 : Print "M"
  544. Wait 50
  545. Sam Play 8,2,10000
  546. Locate 16,11 : Print "S"
  547. Wait 50
  548. Sam Play 8,2,10000
  549. Locate 18,11 : Print "P"
  550. Wait 50
  551. Sam Play 8,2,10000
  552. Locate 20,11 : Print "A"
  553. Wait 50
  554. Sam Play 8,2,10000
  555. Locate 22,11 : Print "C"
  556. Wait 50
  557. Sam Play 8,2,10000
  558. Locate 24,11 : Print "E"
  559. Wait 50
  560. Sam Play 8,2,10000
  561. Locate 26,11 : Print "S"
  562. Paper 4
  563. Wait 100
  564. Locate ,22 : Pen 5 : Paper 0 : Centre "You have 30 seconds to think"
  565. Wait 150
  566. Locate ,22 : Cline 
  567. Wait 200
  568. Locate ,27 : Centre "Press the A key for the answer"
  569. JUGH:
  570. Clear Key 
  571. Wait Key 
  572. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  573. YUK:
  574. Locate ,27 : Centre "                                 "
  575. Paper 2
  576. Paper 0
  577. Pen 5
  578. Locate ,24 : Centre "The answer is .....   "
  579. Wait 75 : Locate ,24 : Centre "                        "
  580. Sam Play 8,1,10000
  581. Locate 12,24 : Pen 5 : Centre "Put him through his paces !!"
  582. Wait 150
  583. Pen 4
  584. Wait 150
  585. Locate ,26 : Pen 3 : Centre "If you dont understand press'Help'"
  586. Wait 25
  587. Wait 50
  588. Locate ,28 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  589. Clear Key 
  590. Wait Key 
  591. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  592. DITHO:
  593. Locate ,28 : Cline 
  594. Locate ,26 : Cline 
  595. Locate ,26 : Pen 2 : Centre "Him is passing through..Plonker ! "
  596. Sam Play 8,7,10000 : Wait 150
  597. Locate ,28 : Centre "Are your brains passing you by!!!"
  598. Wait 200
  599. Locate ,30 : Pen 4 : Centre "Press Spacebar to continue"
  600. Clear Key 
  601. Wait Key 
  602. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  603. GROO:
  604. Wait 25
  605. Fade 7
  606. Wait 150
  607. Cls 0
  608. End Proc
  609. Procedure LAIN
  610. Screen Open 0,320,256,32,LORES
  611. Flash Off : Hide : Curs Off 
  612. Cls 0
  613. Sam Play 8,4,14000
  614. Palette $909
  615. Locate ,1 : Paper 0 : Centre "What is this everyday phrase?"
  616. Wait 155 : Locate ,1 : Cline 
  617. Wait 75
  618. Ink 6
  619. Bar 70,80 To 239,140
  620. Box 69,79 To 240,141
  621. Ink 4
  622. Box 68,78 To 241,142
  623. Ink 3
  624. Box 67,77 To 242,143
  625. Ink 3
  626. Box 66,76 To 243,144
  627. Pen 2
  628. Sam Play 8,1,10000
  629. Paper 6
  630. 'Locate ,12 : Centre "S.O.S" 
  631. Wait 10 : Bell : Wait 10 : Bell : Wait 10 : Bell 
  632. Locate 17,12 : Print "S"
  633. Locate 18,12 : Print "."
  634. Wait 30
  635. Wait 10 : Bell : Wait 10 : Bell : Wait 10 : Bell 
  636. Locate 19,12 : Print "O"
  637. Locate 20,12 : Print "."
  638. Wait 30
  639. Wait 10 : Bell : Wait 10 : Bell : Wait 10 : Bell 
  640. Locate 21,12 : Print "S"
  641. Locate 22,12 : Print "."
  642. Wait 60
  643. Sam Play 8,1,10000
  644. Locate ,14 : Centre "ROUTE"
  645. Wait 200
  646. Paper 0
  647. Locate ,21 : Pen 4 : Centre "You have 30 seconds to think"
  648. Wait 120 : Locate ,21 : Centre "                             "
  649. Wait 300
  650. Locate ,25 : Centre "Press the A key for the answer"
  651. Clear Key 
  652. Wait Key 
  653. CLOG:
  654. If Key State(32)=True Then Gosub YUK Else Goto CLOG
  655. YUK:
  656. Locate ,25 : Cline 
  657. Paper 2
  658. Paper 0
  659. Pen 3
  660. Locate 11,22 : Print "The answer is .....   "
  661. Wait 120 : Locate ,22 : Centre "                        "
  662. Sam Play 8,1,10000
  663. Locate 10,22 : Pen 5 : Print "Help is on the Way !"
  664. Wait 200
  665. Wait 175
  666. Sam Play 8,1,10000
  667. Locate 13,24 : Print "Were you right"
  668. Wait 150
  669. Locate ,24 : Pen 3 : Centre "If you dont understand press'Help'"
  670. Wait 55
  671. Locate ,26 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  672. Clear Key 
  673. Wait Key 
  674. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  675. DITHO:
  676. Locate ,26 : Cline 
  677. Locate ,24 : Cline 
  678. Sam Play 8,6,10000
  679. Locate ,24 : Centre "S.O.S = Help on a way..DUMBO!!"
  680. Wait 100
  681. Locate ,26 : Pen 4 : Centre "It's so simple really CLOGHEAD!"
  682. Wait 150 : Locate ,28 : Centre "Press Space Bar to Continue"
  683. Clear Key 
  684. Wait Key 
  685. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  686. GROO:
  687. Wait 25
  688. Fade 7
  689. Wait 150
  690. Cls 0
  691. End Proc
  692. Procedure HAIN
  693. Screen Open 0,320,256,16,LORES
  694. Curs Off : Flash Off : Cls 0
  695. Sam Play 8,4,14000
  696. Palette 111
  697. Locate ,4 : Paper 0 : Pen 4 : Centre "What is this well known Phrase ?"
  698. Wait 150
  699. Locate ,4 : Cline 
  700. Wait 50
  701. Ink 4
  702. Bar 94,23 To 220,155
  703. Ink 2
  704. Box 93,23 To 221,156
  705. Ink 6
  706. Box 92,22 To 222,157
  707. Ink 2
  708. Box 91,21 To 223,158
  709. Ink 3
  710. Box 90,20 To 224,159
  711. Wait 50
  712. Sam Play 8,2,10000
  713. Locate 18,5 : Paper 4 : Pen 2 : Print "Y"
  714. Wait 30
  715. Sam Play 8,2,10000
  716. Locate 20,5 : Print "Y"
  717. '*********** 
  718. Wait 100
  719. Sam Play 8,2,10000
  720. Locate 14,9 : Print "FRONT"
  721. Wait 30
  722. Sam Play 8,2,10000
  723. Locate 14,11 : Print "FRONT"
  724. Wait 30
  725. Sam Play 8,2,10000
  726. Locate 14,13 : Print "FRONT"
  727. Wait 30
  728. Sam Play 8,2,10000
  729. Locate 14,15 : Print "FRONT"
  730. '********************* 
  731. Wait 30
  732. Sam Play 8,2,10000
  733. Locate 20,9 : Print "FRONT"
  734. Wait 30
  735. Sam Play 8,2,10000
  736. Locate 20,11 : Print "FRONT"
  737. Wait 30
  738. Sam Play 8,2,10000
  739. Locate 20,13 : Print "FRONT"
  740. Wait 30
  741. Sam Play 8,2,10000
  742. Locate 20,15 : Print "FRONT"
  743. Paper 4
  744. Wait 100
  745. Locate ,22 : Pen 5 : Paper 0 : Centre "You have 30 seconds to think"
  746. Wait 150
  747. Locate ,22 : Cline 
  748. Wait 200
  749. Locate ,27 : Centre "Press the A key for the answer"
  750. JUGH:
  751. Clear Key 
  752. Wait Key 
  753. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  754. YUK:
  755. Locate ,27 : Centre "                                 "
  756. Paper 2
  757. Paper 0
  758. Pen 5
  759. Locate ,24 : Centre "The answer is .....   "
  760. Wait 75 : Locate ,24 : Centre "                        "
  761. Sam Play 8,1,10000
  762. Locate 11,24 : Pen 5 : Print "A Pair of Y Fronts !"
  763. Wait 150
  764. Pen 4
  765. Wait 150
  766. Locate ,26 : Pen 3 : Centre "If you dont understand press'Help'"
  767. Wait 25
  768. Wait 50
  769. Locate ,28 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  770. Clear Key 
  771. Wait Key 
  772. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  773. DITHO:
  774. Locate ,28 : Cline 
  775. Locate ,26 : Cline 
  776. Locate ,26 : Pen 2 : Centre "2 Y's and Fronts..Plonker ! "
  777. Sam Play 8,7,10000 : Wait 150
  778. Locate ,28 : Pen 4 : Centre "Press Spacebar to continue"
  779. Clear Key 
  780. Wait Key 
  781. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  782. GROO:
  783. Wait 25
  784. Fade 7
  785. Wait 150
  786. Cls 0
  787. End Proc
  788. Procedure ZAIN
  789. Screen Open 0,320,256,32,LORES
  790. Cls 0 : Flash Off : Curs Off : Hide 
  791. Sam Play 8,4,14000
  792. Palette $818
  793. Cls 0 : Curs Off : Flash Off 
  794. Paper 0 : Pen 2
  795. Wait 50
  796. Locate ,3 : Pen 5
  797. Centre "What is this well known saying ?"
  798. Wait 150
  799. Locate ,3 : Cline 
  800. Pen 2
  801. Wait 100
  802. Locate 0,10
  803. Print "Acne"
  804. Pen 5
  805. A$="     Rootedd"
  806. Curs Off 
  807. N=6
  808. Repeat 
  809.    L$=Mid$(A$,N,1)+Chr$(32)
  810.    Locate 39,10 : Print L$
  811.    For T=39 To N+1 Step -1
  812.       Locate T,10 : Print L$
  813.       Wait Vbl 
  814.  Next T
  815.    Inc N
  816. Until N=Len(A$)
  817. Ink 5
  818. Paper 0 : Pen 4
  819. Wait 150
  820. Locate ,24 : Centre "Thats it !!!!"
  821. Wait 75
  822. Centre "You have 30 seconds to think!!!"
  823. Wait 150 : Locate 19,24
  824. Centre "                                "
  825. Wait 250 : Locate ,24 : Centre "This is really easy !(Spot the error)"
  826. Wait 150 : Locate ,24 : Cline 
  827. Wait 250
  828. HLL:
  829.  Locate 9,24 : Pen 5 : Print "Press the A key for answer     "
  830. Clear Key 
  831. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  832. HVS:
  833. Locate 9,24 : Print "                              "
  834. Wait 50
  835. Locate ,24
  836. Centre "The answer is ..."
  837. Wait 105 : Locate 19,24 : Centre "                 "
  838. Sam Play 8,1,10000
  839. Locate ,24 : Pen 5 : Centre "Rooted to the spot !!"
  840. Locate 22,26
  841. Wait 150
  842. Centre "Were You Right ?"
  843. Wait 150
  844. Locate ,28 : Pen 3 : Centre "You see I gave you a clue there?"
  845. Wait 150
  846. Locate ,28 : Cline 
  847. Locate ,26 : Cline 
  848. Paper 0 : Pen 4
  849. Locate ,28 : Centre "If you dont understand press HELP "
  850. Wait 50
  851. Locate ,30 : Centre "Or press spacebar to continue"
  852. HNKP:
  853. Wait 75
  854. Clear Key 
  855. Wait Key 
  856. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  857. HONDAY:
  858. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  859. Wait 100
  860. HSW:
  861. Locate ,30 : Centre "                                  "
  862. Locate 2,28 : Print "                                    "
  863. Paper 0 : Pen 2
  864. Wait 50
  865. Sam Play 8,7,10000
  866. Locate ,26 : Centre "Acne is a spot..Braindead!"
  867. Wait 175
  868. Locate ,28 : Centre "Rooted goes to it !!"
  869. Wait 100
  870. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  871. Clear Key 
  872. Wait Key 
  873. HAAB:
  874. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  875. Wait 75
  876. HAAC:
  877. Ink 2
  878. For A=1 To 400
  879.    Draw 0,A To 340,A
  880.    Draw 0,600-A To 340,1100-A
  881. Wait 1
  882. Next A
  883. 'Fade 7
  884. Locate ,18 : Paper 2 : Pen 4 : Centre "I'm going out to cast my vote!"
  885. Wait 75
  886. Locate ,18 : Cline 
  887. Wait 50
  888. Fade 7
  889. Locate ,18 : Paper 2 : Pen 4 : Centre "Toodle Pip !!"
  890. Wait 150
  891. Cls 0
  892. End Proc
  893. Procedure MAIN
  894. Screen Open 0,320,256,32,LORES
  895. Cls 0 : Flash Off : Curs Off : Hide 
  896. Sam Play 8,4,14000
  897. Palette $212
  898. Cls 0 : Curs Off : Flash Off 
  899. Paper 0 : Pen 2
  900. Wait 50
  901. Locate ,3 : Pen 5
  902. Centre "What is this well known saying ?"
  903. Wait 150
  904. Locate ,3 : Cline 
  905. Pen 2
  906. Wait 100
  907. 'Locate 0,10 
  908. 'Print "Acne"
  909. Pen 5
  910. A$="               AMISS     "
  911. Curs Off 
  912. N=10
  913. Repeat 
  914.    L$=Mid$(A$,N,1)+Chr$(32)
  915.    Locate 39,10 : Print L$
  916.    For T=39 To N+1 Step -1
  917.       Locate T,10 : Print L$
  918.       Wait Vbl 
  919.  Next T
  920.    Inc N
  921. Until N=Len(A$)
  922. Ink 5
  923. Paper 0 : Pen 4
  924. Wait 150
  925. Locate ,24 : Centre "Thats it !!!!"
  926. Wait 75
  927. Centre "You have 30 seconds to think!!!"
  928. Wait 150 : Locate 19,24
  929. Centre "                                "
  930. Wait 250 : Locate ,24 : Centre "This is really easy Miss Pippa !"
  931. Wait 150 : Locate ,24 : Cline 
  932. Wait 250
  933. HLL:
  934.  Locate 9,24 : Pen 5 : Print "Press the A key for answer     "
  935. Clear Key 
  936. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  937. HVS:
  938. Locate 9,24 : Print "                              "
  939. Wait 50
  940. Locate ,24
  941. Centre "The answer is ..."
  942. Wait 105 : Locate 19,24 : Centre "                 "
  943. Sam Play 8,1,10000
  944. Locate ,24 : Pen 5 : Centre "A Near Miss !!"
  945. Locate 22,26
  946. Wait 150
  947. Centre "Were You Right ?"
  948. Wait 150
  949. Locate ,28 : Pen 4 : Centre "You see I gave you another clue !!"
  950. Wait 150
  951. Locate ,28 : Cline 
  952. Locate ,26 : Cline 
  953. Paper 0 : Pen 4
  954. Locate ,28 : Centre "If you dont understand press HELP "
  955. Wait 50
  956. Locate ,30 : Centre "Or press spacebar to continue"
  957. HNKP:
  958. Wait 75
  959. Clear Key 
  960. Wait Key 
  961. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  962. HONDAY:
  963. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  964. Wait 100
  965. HSW:
  966. Locate ,30 : Centre "                                  "
  967. Locate 2,28 : Print "                                    "
  968. Paper 0 : Pen 2
  969. Wait 50
  970. Sam Play 8,7,10000
  971. Locate ,26 : Centre "A is next to miss..Braindead!"
  972. Wait 175
  973. Locate ,28 : Centre "Did you miss your share of brains!!"
  974. Wait 100
  975. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  976. Clear Key 
  977. Wait Key 
  978. HAAB:
  979. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  980. Wait 75
  981. HAAC:
  982. Ink 2
  983. For A=1 To 400
  984.    Draw 0,A To 340,A
  985.    Draw 0,600-A To 340,1100-A
  986. Wait 1
  987. Next A
  988. 'Fade 7
  989. Locate ,18 : Paper 2 : Pen 4 : Centre "I'm going out to cast my vote!"
  990. Wait 75
  991. Locate ,18 : Cline 
  992. Wait 50
  993. Fade 7
  994. Locate ,18 : Paper 2 : Pen 4 : Centre "Toodle Pip !!"
  995. Wait 150
  996. Cls 0
  997. End Proc
  998. Procedure FAIN
  999. Screen Open 0,320,256,32,LORES
  1000. Flash Off : Hide : Curs Off 
  1001. Cls 0
  1002. Sam Play 8,4,14000
  1003. Palette $99
  1004. Locate ,1 : Paper 0 : Centre "What is this everyday phrase?"
  1005. Wait 155 : Locate ,1 : Cline 
  1006. Wait 75
  1007. Ink 3 : 
  1008. Circle 163,75,71
  1009. Ink 4
  1010. Circle 163,75,72
  1011. Ink 1
  1012. Circle 163,75,73
  1013. Ink 5
  1014. Circle 163,75,74
  1015. Ink 6
  1016. Circle 163,75,70
  1017. Paint 161,82
  1018. Wait 100
  1019. Sam Play 8,7,10000
  1020. Locate 16,5 : Paper 6 : Print "S"
  1021. Wait 40 : Sam Play 8,7,10000
  1022. Locate 18,7 : Print "W"
  1023. Wait 40 : Sam Play 8,7,10000
  1024. Locate 20,9 : Print "O"
  1025. Wait 40 : Sam Play 8,7,10000
  1026. Locate 22,11 : Print "R"
  1027. Wait 40 : Sam Play 8,7,10000
  1028. Locate 24,13 : Print "D"
  1029. Wait 40 : Sam Play 8,7,10000
  1030. Locate 24,5 : Paper 6 : Print "S"
  1031. Wait 40 : Sam Play 8,7,10000
  1032. Locate 22,7 : Print "W"
  1033. Wait 40 : Sam Play 8,7,10000
  1034. Locate 18,11 : Print "R"
  1035. Wait 40 : Sam Play 8,7,10000
  1036. Locate 16,13 : Print "D"
  1037. Wait 200
  1038. Paper 0
  1039. Wait 40 : Sam Play 8,7,10000
  1040. Locate ,21 : Pen 4 : Centre "You have 30 seconds to think"
  1041. Wait 120 : Locate ,21 : Centre "                             "
  1042. Wait 250
  1043. Sam Play 8,7,10000
  1044. Locate ,25 : Centre "Press the A key for the answer"
  1045. JUGH:
  1046. Clear Key 
  1047. Wait Key 
  1048. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  1049. YUK:
  1050. Locate ,25 : Cline 
  1051. Paper 2
  1052. Paper 0
  1053. Pen 3
  1054. Locate 12,22 : Print "The answer is .....   "
  1055. Wait 120 : Locate ,22 : Centre "                        "
  1056. Sam Play 8,1,10000
  1057. Locate 13,22 : Pen 5 : Print "Crossed Swords !"
  1058. Wait 200
  1059. Pen 4
  1060. Wait 175
  1061. Sam Play 8,1,10000
  1062. Locate 13,24 : Print "Were you right"
  1063. Wait 150
  1064. Locate ,24 : Pen 3 : Centre "If you dont understand press'Help'"
  1065. Wait 55
  1066. Locate ,26 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  1067. Clear Key 
  1068. Wait Key 
  1069. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  1070. DITHO:
  1071. Locate ,26 : Cline 
  1072. Locate ,24 : Cline 
  1073. Sam Play 8,6,10000
  1074. Locate ,24 : Pen 2 : Centre "Flipping Heck.... DITHO!!"
  1075. Wait 100
  1076. Locate ,26 : Pen 2 : Centre "Swords are Crossed..are your eyes?"
  1077. Wait 200
  1078. Locate ,28 : Pen 2 : Centre "Press Spacebar to continue"
  1079. Clear Key 
  1080. Wait Key 
  1081. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  1082. GROO:
  1083. Wait 25
  1084. Fade 7
  1085. Wait 150
  1086. Cls 0
  1087. End Proc
  1088. Procedure KAIN
  1089. Sam Play 8,4,14000
  1090. Screen Open 0,320,256,32,LORES
  1091. Cls 0 : Flash Off : Curs Off : Hide 
  1092. Palette $888
  1093. Cls 0 : Curs Off : Flash Off 
  1094. Locate ,3
  1095. Paper 0 : Pen 6
  1096. Centre "What is this well known saying ?"
  1097. Wait 150
  1098. Locate ,3 : Cline 
  1099. Wait 60
  1100. Ink 5
  1101. Box 79,89 To 251,161
  1102. Ink 1
  1103. Bar 80,90 To 250,160
  1104. Ink 6
  1105. Box 78,88 To 252,162
  1106. Ink 2
  1107. Box 77,87 To 253,163 : Ink 6 : Box 76,86 To 254,164
  1108. Wait 75
  1109. Paper 1
  1110. Sam Play 8,7,10000
  1111. Locate 17,12 : Pen 2 : Print "G"
  1112. Wait 50
  1113. Sam Play 8,7,10000
  1114. Locate 19,12 : Pen 5 : Print "R"
  1115. Wait 50
  1116. Sam Play 8,7,10000
  1117. Locate 21,12 : Pen 4 : Print "E"
  1118. Wait 50
  1119. Sam Play 8,7,10000
  1120. Locate 21,14 : Pen 6 : Print "A"
  1121. Wait 50
  1122. Sam Play 8,7,10000
  1123. Locate 21,16 : Pen 2 : Print "S"
  1124. Wait 50
  1125. Sam Play 8,7,10000
  1126. Locate 21,18 : Pen 5 : Print "E"
  1127. Locate 6,21
  1128. Paper 0 : Pen 5
  1129. Wait 75
  1130. Print " You have 30 seconds to think !"
  1131. Wait 150 : Locate 19,21
  1132. Cline 
  1133. Wait 300
  1134. HLL:
  1135.  Locate 8,21 : Print "Press the A key for answer     "
  1136. Clear Key 
  1137. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1138. HVS:
  1139. Locate 8,21 : Print "                              "
  1140. Wait 50
  1141. Locate 19,21 : Pen 2
  1142. Centre "The answer is ..."
  1143. Wait 75 : Locate 19,21 : Centre "                 "
  1144. Sam Play 8,1,10000
  1145. Locate 15,21 : Pen 2 : Print "Elbow Grease!"
  1146. Wait 75
  1147. Locate 14,24 : 
  1148. Pen 5 : Print "Were You Right ?"
  1149. Wait 100
  1150. Paper 0 : Pen 4
  1151. Locate ,26 : Centre "If you dont understand press HELP "
  1152. Wait 150
  1153. Locate ,28 : Centre "Or press spacebar to continue"
  1154. HNKP:
  1155. Wait 75
  1156. Clear Key 
  1157. Wait Key 
  1158. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1159. HONDAY:
  1160. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1161. Wait 100
  1162. HSW:
  1163. Locate ,26 : Cline 
  1164. Locate ,24 : Cline 
  1165. Locate 2,28 : Print "                                    "
  1166. Paper 0 : Pen 5
  1167. Sam Play 8,6,10000
  1168. Locate 0,24 : Centre "Grease is an Elbow Shape.. Dummy!!"
  1169. Wait 155
  1170. Sam Play 8,7,10000
  1171. Locate ,26 : Pen 3 : Centre "On to the next one.. Plonker !"
  1172. Wait 75
  1173. Sam Play 8,2,10000
  1174. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1175. Clear Key 
  1176. Wait Key 
  1177. HAAB:
  1178. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1179. Wait 75
  1180. HAAC:
  1181. Wait 150
  1182. Fade 7
  1183. Wait 150
  1184. Cls 0
  1185. End Proc
  1186. Procedure QAIN
  1187. Screen Open 0,320,256,32,LORES
  1188. Cls 0 : Curs Off : Hide : Flash Off 
  1189. Sam Play 8,4,14000
  1190. Palette $F76
  1191. Cls 0 : Curs Off : Flash Off 
  1192. Locate ,3
  1193. Paper 0 : Pen 4
  1194. Centre "What is this well known saying ?"
  1195. Wait 175
  1196. Locate ,3 : Cline 
  1197. Wait 100
  1198. Paper 0 : Pen 6
  1199. Sam Play 8,2,10000
  1200. Locate 10,12 : Print "i"
  1201. Wait 50
  1202. Ink 2
  1203. Sam Play 8,2,10000
  1204. Bar 120,60 To 234,140
  1205. Ink 8
  1206. Box 119,59 To 235,141
  1207. Ink 3
  1208. Wait 50
  1209. Sam Play 8,2,10000
  1210. Bar 170,70 To 180,90
  1211. Wait 50
  1212. Sam Play 8,2,10000
  1213. Bar 140,110 To 160,120
  1214. Wait 50
  1215. Sam Play 8,2,10000
  1216. Bar 190,110 To 210,120
  1217. Wait 150
  1218.  Pen 4 : Paper 0
  1219. Sam Play 8,5,10000
  1220. Locate ,19 : Centre "You have 30 seconds to think !"
  1221. Wait 100
  1222. Locate ,19 : Cline 
  1223. Locate ,21 : Cline 
  1224. Wait 300
  1225. ZHHJ:
  1226. Locate 4,19 : Print "                                  "
  1227. Locate 8,19 : Print "Press the A key for answer     "
  1228. Clear Key 
  1229. Wait Key 
  1230. If Key State(32)=True Then Gosub ZGHG Else Goto ZHHJ
  1231. ZGHG:
  1232. Locate 10,19
  1233. Centre "                                     "
  1234. Locate ,21
  1235. Centre "The answer is ... "
  1236. Wait 100
  1237. Locate ,21
  1238. Centre "                  "
  1239. Pen 3
  1240. Sam Play 8,1,10000
  1241. Locate ,21 : Centre "An Eye Socket !"
  1242. Locate 22,26
  1243. Wait 100
  1244. Pen 2
  1245. Centre "Were You Right ?"
  1246. Wait 150
  1247. Paper 0 : Pen 5
  1248. Locate ,26 : Centre "If you dont understand press HELP "
  1249. Wait 75
  1250. Locate ,28 : Centre "Or press spacebar to continue"
  1251. ZVFR:
  1252. Wait 75
  1253. Clear Key 
  1254. Wait Key 
  1255. If Key State(95)=True Then Gosub ZDMM Else Goto ZJO
  1256. ZJO:
  1257. If Key State(64)=True Then Gosub ZCTC Else Bell : Wait 10 : Bell : Wait 10 : Bell : Locate ,26 : Centre "THicko you pressed the wrong key" : Goto ZVFR
  1258. Wait 50
  1259. ZDMM:
  1260. Locate ,26 : Centre "                                       "
  1261. Locate ,28 : Centre "                                       "
  1262. Paper 0 : Pen 5
  1263. Sam Play 8,6,10000
  1264. Locate ,24 : Pen 6 : Centre "Crikey ! You shouldn't need help!"
  1265. Wait 150
  1266.  Sam Play 8,1,10000
  1267. Locate ,26 : Centre "An 'i' and a wall socket!!"
  1268. Wait 100 : Sam Play 8,1,10000
  1269. Locate 3,28 : Centre "Sock it to me baby !!!!! "
  1270. Wait 200
  1271. Locate 7,30 : Pen 4 : Print "press SPACE BAR to continue"
  1272. Wait 75
  1273. Clear Key 
  1274. Wait Key 
  1275. ZFRT:
  1276. If Key State(64)=True Then Gosub ZCTC Else Goto ZFRT
  1277. ZCTC:
  1278. Fade 7
  1279. Wait 150
  1280. Cls 0
  1281. End Proc
  1282. Procedure DAIN
  1283. Screen Open 0,320,256,32,LORES
  1284. Cls 0 : Curs Off : Hide : Flash Off 
  1285. Sam Play 8,4,14000
  1286. Palette $316
  1287. Cls 0 : Curs Off : Flash Off 
  1288. Locate ,3
  1289. Paper 0 : Pen 4
  1290. Centre "What is this well known saying ?"
  1291. Wait 175
  1292. Locate ,3 : Cline 
  1293. Wait 70
  1294. Paper 2 : Ink 2
  1295. Ink 5
  1296. Ink 6
  1297. Bar 90,80 To 234,140
  1298. Box 89,79 To 235,141
  1299. Ink 4
  1300. Box 88,78 To 236,142
  1301. Ink 3
  1302. Box 87,77 To 237,143
  1303. Ink 2
  1304. Box 86,76 To 238,144
  1305. Wait 150
  1306.  Pen 4 : Paper 6
  1307. Locate 12,13 : Wait 40 : Sam Play 8,6,10000 : Print "C"
  1308. Wait 40
  1309. Sam Play 8,6,60000
  1310. Locate 14,13 : Print "U"
  1311. Wait 40
  1312. Sam Play 8,6,60000
  1313. Locate 16,13 : Print "R"
  1314. Wait 40
  1315. Sam Play 8,6,60000
  1316. Locate 18,13 : Print "R"
  1317. Wait 40
  1318. Sam Play 8,6,60000
  1319. Locate 20,13 : Print "A"
  1320. Wait 40
  1321. Sam Play 8,6,60000
  1322. Locate 22,13 : Print "N"
  1323. Wait 40
  1324. Sam Play 8,6,60000
  1325. Locate 24,13 : Print "T"
  1326. Wait 100
  1327. Ink 0
  1328. Bar 210,103 To 211,111
  1329. Bar 218,103 To 219,111
  1330. Bar 207,103 To 219,104
  1331. Bar 220,101 To 221,104
  1332. Bar 206,103 To 207,106
  1333. Wait 100
  1334. Paper 0 : Pen 2
  1335. Locate ,19 : Centre "You have 30 seconds to think !"
  1336. Wait 100
  1337. Locate ,19 : Cline 
  1338. Locate ,21 : Cline 
  1339. Wait 300
  1340. ZHHJ:
  1341. Locate 4,19 : Print "                                  "
  1342. Locate 8,19 : Print "Press the A key for answer     "
  1343. Clear Key 
  1344. Wait Key 
  1345. If Key State(32)=True Then Gosub ZGHG Else Goto ZHHJ
  1346. ZGHG:
  1347. Locate 10,19
  1348. Centre "                                     "
  1349. Locate ,21
  1350. Centre "The answer is ... "
  1351. Wait 100
  1352. Locate ,21
  1353. Centre "                  "
  1354. Pen 5
  1355. Sam Play 8,1,10000
  1356. Locate 12,21 : Print "Redcurrant Pie !"
  1357. Locate 22,26
  1358. Wait 100
  1359. Pen 2
  1360. Centre "Were You Right ?"
  1361. Wait 150
  1362. Paper 0 : Pen 5
  1363. Locate ,26 : Centre "If you dont understand press HELP "
  1364. Wait 75
  1365. Locate ,28 : Centre "Or press spacebar to continue"
  1366. ZVFR:
  1367. Wait 75
  1368. Clear Key 
  1369. Wait Key 
  1370. If Key State(95)=True Then Gosub ZDMM Else Goto ZJO
  1371. ZJO:
  1372. If Key State(64)=True Then Gosub ZCTC Else Bell : Wait 10 : Bell : Wait 10 : Bell : Locate ,26 : Centre "THicko you pressed the wrong key" : Goto ZVFR
  1373. Wait 50
  1374. ZDMM:
  1375. Locate ,26 : Centre "                                       "
  1376. Locate ,28 : Centre "                                       "
  1377. Paper 0 : Pen 5
  1378. Sam Play 8,6,10000
  1379. Locate ,24 : Pen 2 : Centre "A Red Currant & the Pi Sign. Plonk!"
  1380. Wait 100 : Sam Play 8,1,10000
  1381. Locate ,28 : Centre "Are you red in the Face now ?"
  1382. Wait 200
  1383. Locate 7,30 : Pen 4 : Print "press SPACE BAR to continue"
  1384. Wait 75
  1385. Clear Key 
  1386. Wait Key 
  1387. ZFRT:
  1388. If Key State(64)=True Then Gosub ZCTC Else Goto ZFRT
  1389. ZCTC:
  1390. Fade 7
  1391. Wait 150
  1392. Cls 0
  1393. End Proc
  1394. Procedure YAIN
  1395. Sam Play 8,4,14000
  1396. Screen Open 0,320,256,32,LORES
  1397. Cls 0 : Flash Off : Curs Off : Hide 
  1398. Palette $157
  1399. Cls 0 : Curs Off : Flash Off 
  1400. Locate ,3
  1401. Paper 0
  1402. Centre "What is this well known saying ?"
  1403. Wait 150
  1404. Locate ,3 : Cline 
  1405. Wait 60
  1406. Ink 7
  1407. Box 79,89 To 251,161
  1408. Ink 14
  1409. Bar 80,90 To 250,160
  1410. Ink 5
  1411. Box 78,88 To 252,162
  1412. Ink 2
  1413. Box 77,87 To 253,163 : Box 76,86 To 254,164
  1414. Ink 3
  1415. Box 75,85 To 255,165
  1416. Wait 120
  1417. Locate ,21
  1418. Paper 0 : Pen 5
  1419. Wait 100
  1420. Sam Play 8,7,10000
  1421. Locate 16,16 : Paper 14 : Pen 5 : Print "W"
  1422. Wait 50
  1423. Sam Play 8,7,10000
  1424. Locate 18,16 : Pen 4 : Print "O"
  1425. Wait 50
  1426. Sam Play 8,7,10000
  1427. Locate 20,16 : Pen 3 : Print "R"
  1428. Wait 50
  1429. Sam Play 8,7,10000
  1430. Locate 22,16 : Pen 2 : Print "L"
  1431. Wait 50
  1432. Sam Play 8,7,10000
  1433. Locate 24,16 : Pen 6 : Print "D"
  1434. Wait 100
  1435. Wait 50
  1436. Sam Play 8,7,10000
  1437. Locate 22,12 : Pen 4 : Print "S"
  1438. Wait 50
  1439. Sam Play 8,7,10000
  1440. Locate 22,14 : Pen 5 : Print "A"
  1441. Wait 50
  1442. Sam Play 8,7,10000
  1443. Locate 22,18 : Pen 6 : Print "T"
  1444. Wait 100
  1445. Paper 0
  1446. Locate ,21 : Pen 5 : Centre "You have 29 seconds to think"
  1447. Wait 150 : Locate 19,21
  1448. Cline 
  1449. Wait 200
  1450. HLL:
  1451.  Locate 8,21 : Print "Press the A key for answer     "
  1452. Clear Key 
  1453. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1454. HVS:
  1455. Locate 8,21 : Print "                              "
  1456. Wait 50
  1457. Locate 19,21 : Pen 2
  1458. Centre "The answer is ..."
  1459. Wait 75 : Locate 19,21 : Centre "                 "
  1460. Sam Play 8,1,10000
  1461. Locate 12,21 : Pen 2 : Print "Salt of the Earth !"
  1462. Wait 150
  1463. Locate 9,23
  1464. Pen 5
  1465. Locate 12,29
  1466. Pen 5 : Print "Were You Right ?"
  1467. Wait 100
  1468. Paper 0 : Pen 4
  1469. Locate ,29 : Centre "If you dont understand press HELP "
  1470. Wait 150
  1471. Locate ,30 : Centre "Or press spacebar to continue"
  1472. HNKP:
  1473. Wait 75
  1474. Clear Key 
  1475. Wait Key 
  1476. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1477. HONDAY:
  1478. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1479. Wait 100
  1480. HSW:
  1481. Locate ,23 : Cline 
  1482. Locate ,25 : Cline 
  1483. Locate 2,27 : Print "                                    "
  1484. Locate ,29 : Cline 
  1485. Locate ,30 : Cline 
  1486. Paper 0 : Pen 2
  1487. Sam Play 8,6,10000
  1488. Locate 0,24 : Centre "You're joking this is an easy one !"
  1489. Wait 75
  1490. Sam Play 8,7,10000
  1491. Locate ,26 : Centre "Salt is going through the Earth."
  1492. Wait 75
  1493. Sam Play 8,7,10000
  1494. Locate ,28 : Centre "Are you going through a CRISIS...Dodo"
  1495. Sam Play 8,2,10000
  1496. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1497. Clear Key 
  1498. Wait Key 
  1499. HAAB:
  1500. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1501. Wait 75
  1502. HAAC:
  1503. Locate ,24 : Cline 
  1504. Locate ,26 : Cline : Locate ,30 : Cline 
  1505. Wait 150
  1506. Locate ,26 : Centre "LOOK OUT !!"
  1507. WIPE
  1508. Wait 50
  1509. Locate ,14 : Centre "Wow ! I nearly got swept away then!!"
  1510. Wait 150
  1511. Cls 0
  1512. End Proc
  1513. Procedure SAIN
  1514. Screen Open 0,320,256,32,LORES
  1515. Cls 0 : Curs Off : Flash Off : Hide 
  1516. Sam Play 8,4,14000
  1517. Palette $F
  1518. Cls 0 : Curs Off : Flash Off 
  1519. Locate ,3
  1520. Paper 0
  1521. Centre "What is this well known saying ?"
  1522. Wait 150
  1523. Locate ,3 : Cline 
  1524. Wait 60
  1525. Ink 5
  1526. Bar 100,80 To 210,160
  1527. Ink 3
  1528. Box 99,79 To 211,161
  1529. Ink 2
  1530. Box 98,78 To 212,162
  1531. Ink 3
  1532. Box 97,77 To 213,163
  1533. Paper 2 : Pen 4
  1534. Paper 5
  1535. Wait 100
  1536. Sam Play 8,7,10000
  1537. Locate 14,16 : Pen 4 : Print "60 Seconds"
  1538. Wait 100
  1539. Sam Play 8,7,10000
  1540. Locate 17,14 : Pen 6 : Print "Hang"
  1541. Wait 40
  1542. Locate 19,22
  1543. Paper 0 : Pen 2
  1544. Wait 100
  1545. Centre "You have 30 seconds to think!!!"
  1546. Wait 100
  1547. Locate 19,22
  1548. Centre "                               "
  1549. Wait 300
  1550. Locate 19,22
  1551. Centre "                               "
  1552. HJJ:
  1553.  Locate 8,22 : Print "Press the A key for answer     "
  1554. Clear Key 
  1555. Wait Key 
  1556. Locate 8,22 : Print "                          "
  1557. If Key State(32)=True Then Gosub ABQ Else Goto HJJ
  1558. ABQ:
  1559. Wait 50
  1560. Locate 19,22
  1561. Centre "The answer is...."
  1562. Wait 100
  1563. Sam Play 8,1,10000
  1564. Locate 9,22 : Centre "                 " : Locate ,22 : Pen 4 : Centre "Hang on a Minute !"
  1565. Locate 12,24
  1566. Wait 150 : Pen 3
  1567. Centre "I dont mean wait !thats the answer!"
  1568. Wait 200
  1569. Locate ,24 : Cline 
  1570. Paper 0 : Pen 5
  1571. Locate ,24 : Centre "If you dont understand press HELP "
  1572. Locate ,26 : Centre "Or press spacebar to continue"
  1573. LKP:
  1574. Wait 75
  1575. Clear Key 
  1576. Wait Key 
  1577. If Key State(95)=True Then Gosub XEX Else Goto OON
  1578. OON:
  1579. If Key State(64)=True Then Gosub ZAC Else Locate ,26 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Goto LKP
  1580. Wait 100
  1581. XEX:
  1582. Locate ,24 : Cline 
  1583. Paper 0 : Pen 2
  1584. Locate ,26 : Cline 
  1585. Sam Play 8,7,10000
  1586. Locate 6,24 : Centre "60 seconds is a minute!. Plonker !!"
  1587. Wait 250
  1588. Locate ,26 : Centre "Hang is on top! Hang you head in shame"
  1589. Wait 150
  1590. Locate ,28 : Pen 4 : Centre "press SPACE BAR to continue"
  1591. Clear Key 
  1592. Wait Key 
  1593. BSB:
  1594. If Key State(64)=True Then Gosub ZAC Else Goto BSB
  1595. Wait 75
  1596. ZAC:
  1597. Fade 7
  1598. Wait 150
  1599. Cls 0
  1600. End Proc
  1601. Procedure JUAIN
  1602. Sam Play 8,4,14000
  1603. Screen Open 0,320,256,32,LORES
  1604. Cls 0 : Flash Off : Curs Off : Hide 
  1605. Ink 0
  1606. Bar 0,0 To 10,10
  1607. Locate ,2 : Paper 0 : Centre "What is this well known saying ?"
  1608. Wait 150
  1609. 'Load Iff "df1:milk" 
  1610. 'Spack 0 To 2
  1611. 'Wait 50 
  1612. Sam Play 8,2,10000
  1613. Unpack 2 To 0
  1614. Wait 150
  1615. Locate ,4 : Paper 15 : Pen 3 : Centre "You have 30 seconds to think"
  1616. Wait 125
  1617. Locate ,4 : Cline 
  1618. Wait 300
  1619. HLL:
  1620.  Locate 8,4 : Pen 1 : Print "Press the A key for answer     "
  1621. Clear Key 
  1622. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1623. HVS:
  1624. Locate 8,4 : Print "                              "
  1625. Wait 50
  1626. Locate 19,4 : Pen 5
  1627. Centre "The answer is ..."
  1628. Wait 75 : Locate 19,4 : Centre "                 "
  1629. Sam Play 8,1,10000
  1630. Paper 15
  1631. Locate 10,4 : Pen 10 : Centre "Low Fat Milk !"
  1632. Locate 12,8
  1633. Wait 150 : Pen 10
  1634. Print "Were You Right ?"
  1635. Wait 150
  1636. Locate ,8 : Cline 
  1637. Locate ,6 : Cline 
  1638. Sam Play 8,2,10000
  1639. Locate ,6 : Pen 3 : Centre "If you dont understand press HELP "
  1640. Wait 150
  1641. Sam Play 8,2,10000
  1642. Locate ,8 : Centre "Or press spacebar to continue"
  1643. HNKP:
  1644. Wait 75
  1645. Clear Key 
  1646. Wait Key 
  1647. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1648. HONDAY:
  1649. If Key State(64)=True Then Gosub HAAC Else Locate ,10 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1650. Wait 100
  1651. HSW:
  1652. Sam Play 8,7,10000
  1653. Locate ,6 : Cline 
  1654. Locate 2,8 : Print "                                    "
  1655.  Pen 10
  1656. Sam Play 8,6,10000
  1657. Locate ,6 : Centre "Milk is FAT & LOW.Are you thick!"
  1658. Wait 250
  1659. Sam Play 8,7,10000
  1660. Locate ,8 : Centre "Drink it ,it's good for you !!!"
  1661. Wait 150
  1662. Locate ,6 : Cline 
  1663. Locate ,8 : Cline 
  1664. Wait 75
  1665. Locate ,10 : Pen 4 : Centre "Press SPACE BAR to continue"
  1666. Clear Key 
  1667. Wait Key 
  1668. HAAB:
  1669. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1670. Wait 75
  1671. HAAC:
  1672. WIPE
  1673. Cls 0
  1674. Wait 150
  1675. End Proc
  1676. Procedure VAIN
  1677. Screen Open 0,320,256,32,LORES
  1678. Flash Off : Hide : Curs Off 
  1679. Cls 0
  1680. Sam Play 8,4,14000
  1681. Palette $F
  1682. Locate ,1 : Paper 0 : Centre "What is this everyday phrase?"
  1683. Wait 155 : Locate ,1 : Cline 
  1684. Wait 75
  1685. Locate ,14 : Centre "ANDHALF"
  1686. Ink 6
  1687. Bar 0,116 To 320,256
  1688. Wait 200
  1689. Paper 6
  1690. Locate ,21 : Pen 4 : Centre "You have 30 seconds to think"
  1691. Wait 120 : Locate ,21 : Centre "                             "
  1692. Wait 300
  1693. Locate ,25 : Centre "Press the A key for the answer"
  1694. JUGH:
  1695. Clear Key 
  1696. Wait Key 
  1697. If Key State(32)=True Then Gosub YUK Else Goto JUGH
  1698. YUK:
  1699. Locate ,25 : Cline 
  1700. Paper 6
  1701. Pen 3
  1702. Locate 12,22 : Print "The answer is .....   "
  1703. Wait 120 : Locate ,22 : Centre "                        "
  1704. Sam Play 8,1,10000
  1705. Locate 13,22 : Pen 5 : Print "Half and Half!"
  1706. Wait 100
  1707. Pen 4
  1708. Wait 175
  1709. Sam Play 8,1,10000
  1710. Locate 13,24 : Print "Were you right"
  1711. Wait 150
  1712. Locate ,24 : Pen 3 : Centre "If you dont understand press'Help'"
  1713. Wait 55
  1714. Locate ,26 : Pen 4 : Centre "Or press 'Spacebar' to continue"
  1715. Clear Key 
  1716. Wait Key 
  1717. If Key State(95)=True Then Gosub DITHO Else Gosub GROO
  1718. DITHO:
  1719. Locate ,26 : Cline 
  1720. Locate ,24 : Cline 
  1721. Sam Play 8,6,10000
  1722. Locate ,24 : Centre "It's half of and half..DITHO!!"
  1723. Wait 150
  1724. Locate ,26 : Centre "Is your BRAIN on half power ?"
  1725. Wait 150
  1726. Locate ,28 : Pen 2 : Centre "Press Spacebar to continue"
  1727. Clear Key 
  1728. Wait Key 
  1729. If Key State(64)=True Then Gosub GROO Else Goto DITHO
  1730. GROO:
  1731. Wait 25
  1732. Fade 7
  1733. Wait 150
  1734. Cls 0
  1735. End Proc
  1736. Procedure WAIN
  1737. Screen Open 0,320,256,32,LORES
  1738. Cls 0 : Flash Off : Curs Off : Hide 
  1739. Sam Play 8,4,14000
  1740. Palette $964
  1741. Cls 0 : Curs Off : Flash Off 
  1742. Locate ,3
  1743. Paper 0
  1744. Centre "What is this well known saying ?"
  1745. Wait 150
  1746. Locate ,3 : Cline 
  1747. Wait 60
  1748. Ink 7
  1749. Box 90,5 To 226,104
  1750. Ink 4
  1751. Bar 91,6 To 225,103
  1752. Ink 2
  1753. Box 89,4 To 227,105
  1754. Ink 9
  1755. Box 88,3 To 228,106
  1756. Locate 19,21
  1757. Paper 0 : Pen 2
  1758. Wait 150
  1759. Sam Play 8,6,5000
  1760. Paper 4
  1761. Locate 13,4 : Pen 6 : Print "V"
  1762. Wait 50
  1763. Sam Play 8,6,5000
  1764. Locate 15,4 : Pen 2 : Print "E"
  1765. Wait 50
  1766. Sam Play 8,6,5000
  1767. Locate 17,4 : Pen 6 : Print "N"
  1768. Wait 50
  1769. Sam Play 8,6,5000
  1770. Locate 19,4 : Pen 2 : Print "T"
  1771. Wait 50
  1772. Sam Play 8,6,5000
  1773. Locate 21,4 : Pen 6 : Print "U"
  1774. Wait 50
  1775. Sam Play 8,6,5000
  1776. Locate 23,4 : Pen 2 : Print "R"
  1777. Wait 50
  1778. Sam Play 8,6,5000
  1779. Locate 25,4 : Pen 6 : Print "E"
  1780. Wait 150
  1781. Locate 19,6 : Print "+"
  1782. Wait 150
  1783. Sam Play 8,6,5000
  1784. Paper 4
  1785. Locate 13,8 : Pen 6 : Print "V"
  1786. Wait 50
  1787. Sam Play 8,6,5000
  1788. Locate 15,8 : Pen 2 : Print "E"
  1789. Wait 50
  1790. Sam Play 8,6,5000
  1791. Locate 17,8 : Pen 6 : Print "N"
  1792. Wait 50
  1793. Sam Play 8,6,5000
  1794. Locate 19,8 : Pen 2 : Print "T"
  1795. Wait 50
  1796. Sam Play 8,6,5000
  1797. Locate 21,8 : Pen 6 : Print "U"
  1798. Wait 50
  1799. Sam Play 8,6,5000
  1800. Locate 23,8 : Pen 2 : Print "R"
  1801. Wait 50
  1802. Sam Play 8,6,5000
  1803. Locate 25,8 : Pen 6 : Print "E"
  1804. Wait 50
  1805. Locate 15,20 : Pen 6 : Paper 0 : Wait 100
  1806. Print "That's It !"
  1807. Wait 150
  1808. Locate 7,20 : Print "You have 30 seconds to think!!"
  1809. Wait 150 : Locate ,20 : Cline 
  1810. Wait 300
  1811. HLL:
  1812.  Locate 8,20 : Pen 6 : Print "Press the A key for answer     "
  1813. Clear Key 
  1814. Wait Key : If Key State(32)=True Then Gosub HVS Else Goto HLL
  1815. HVS:
  1816. Locate 8,20 : Print "                              "
  1817. Wait 50
  1818. Locate 19,20 : Pen 2
  1819. Centre "The answer is ..."
  1820. Wait 75 : Locate 19,20 : Centre "                 "
  1821. Sam Play 8,1,10000
  1822. Locate 11,20 : Pen 6 : Centre "An Adventure !"
  1823. Locate 13,22
  1824. Wait 150 : Paper 0
  1825. Print "Were You Right ?"
  1826. Wait 150
  1827. Locate ,22 : Cline 
  1828. Paper 0 : Pen 4
  1829. Locate ,22 : Centre "If you dont understand press HELP "
  1830. Wait 50
  1831. Locate ,24 : Centre "Or press spacebar to continue"
  1832. HNKP:
  1833. Wait 75
  1834. Clear Key 
  1835. Wait Key 
  1836. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  1837. HONDAY:
  1838. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  1839. Wait 100
  1840. HSW:
  1841. Locate ,22 : Centre "                                  "
  1842. Locate 2,24 : Print "                                    "
  1843. Paper 0 : Pen 3
  1844. Sam Play 8,6,10000
  1845. Locate ,24 : Centre "Excuse me ! these are the easy ones ! "
  1846. Wait 100
  1847. Sam Play 8,7,10000
  1848. Locate ,26 : Centre "Two ventures are added!...Plonker !"
  1849. Wait 75
  1850. Sam Play 8,7,10000
  1851. Locate ,28 : Centre "Are you ADD..led?."
  1852. Wait 150
  1853. Sam Play 8,7,10000
  1854. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  1855. Clear Key 
  1856. Wait Key 
  1857. HAAB:
  1858. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  1859. Wait 75
  1860. HAAC:
  1861. Wait 150
  1862. WIPE
  1863. Wait 100
  1864. Cls 0
  1865. End Proc
  1866. Procedure IAIN
  1867. Screen Open 0,320,256,32,LORES
  1868. Sam Play 8,4,14000
  1869. Curs Off : Flash Off : Hide 
  1870. Cls 0
  1871. Palette $F0
  1872. Cls 0 : Curs Off : Paper 0 : Pen 3
  1873. Locate ,2 : Centre "What is this well known Phrase?"
  1874. Wait 150
  1875. Locate ,2 : Cline 
  1876. Wait 40
  1877. Ink 2
  1878. Bar 110,100 To 214,150
  1879. Ink 3
  1880. Box 109,99 To 215,151
  1881. Ink 4
  1882. Box 108,98 To 216,152
  1883. Ink 3
  1884. Box 107,97 To 217,153
  1885. Wait 75
  1886. Sam Play 8,7,10000
  1887. Locate 17,15 : Paper 2 : Pen 4 : Print "Y"
  1888. Wait 40
  1889. Sam Play 8,7,10000
  1890. Locate 18,15 : Pen 6 : Print "t"
  1891. Wait 40
  1892. Sam Play 8,7,10000
  1893. Locate 19,15 : Pen 3 : Print "e"
  1894. Wait 40
  1895. Sam Play 8,7,10000
  1896. Locate 20,15 : Pen 6 : Print "t"
  1897. Wait 40
  1898. Sam Play 8,7,10000
  1899. Locate 21,15 : Pen 1 : Print "h"
  1900. Wait 40
  1901. Sam Play 8,7,10000
  1902. Locate 22,15 : Pen 4 : Print "e"
  1903. Wait 40
  1904. Sam Play 8,7,10000
  1905. Locate 23,15 : Pen 6 : Print "r"
  1906. Wait 150
  1907. Locate ,21 : Paper 0 : Pen 6 : Centre "You have 30 seconds to think!!!"
  1908. Wait 175
  1909. Locate ,21 : Centre "                                        "
  1910. Wait 300
  1911. XWER:
  1912.  Locate 7,21 : Paper 0 : Pen 4 : Print "Press the A key for answer     "
  1913. Clear Key 
  1914. Wait Key 
  1915. If Key State(32)=True Then Gosub XREW Else Goto XWER
  1916. XREW:
  1917. Locate ,21 : Centre "                                         "
  1918. Wait 100 : Locate ,21 : Centre "The answer is......"
  1919. Wait 100 : Locate ,21 : Centre "                   "
  1920. Sam Play 8,1,10000
  1921.  Locate 10,21 : Pen 6 : Print "At The End Of My Tether !"
  1922. Wait 125
  1923. Locate 16,23 : Print "Oh Groan !"
  1924. Wait 250
  1925. Locate ,23 : Cline 
  1926. Paper 0 : Pen 4
  1927. Locate ,23 : Centre "If you dont understand press HELP "
  1928. Locate ,25 : Centre "Or press spacebar to continue"
  1929. XBUR:
  1930. Wait 75
  1931. Clear Key 
  1932. Wait Key 
  1933. If Key State(95)=True Then Gosub XDYM Else Goto XRUB
  1934. XRUB:
  1935. If Key State(64)=True Then Gosub XCYC Else Bell : Wait 10 : Bell : Wait 10 : Bell : Locate ,26 : Centre "You pressed the wrong key" : Wait 100 : Locate ,26 : Centre "                             " : Goto XBUR
  1936. Wait 100
  1937. Locate ,23 : Centre "                                  "
  1938. Locate ,25 : Centre "                                  "
  1939. XDYM:
  1940. Locate ,23 : Centre "                                  "
  1941. Locate ,25 : Centre "                                  "
  1942. Paper 0 : Pen 6
  1943. Sam Play 8,7,10000
  1944. Locate ,23 : Centre "Oh come on!Y is the end of My!"
  1945. Wait 250
  1946. Sam Play 8,6,10000
  1947. Locate ,25 : Centre "Tether is at the end ! Ditho"
  1948. Wait 100
  1949. Locate ,27 : Pen 4 : Centre "press SPACE BAR to continue"
  1950. Clear Key 
  1951. Wait Key 
  1952. XFFD:
  1953. If Key State(64)=True Then Gosub XCYC Else Goto XFFD
  1954. XCYC:
  1955. Fade 7
  1956. Wait 50
  1957. Cls 0
  1958. Wait 70
  1959. End Proc
  1960. Procedure GAIN
  1961. Sam Play 8,4,14000
  1962. Screen Open 0,320,256,32,LORES
  1963. Cls 0 : Flash Off : Curs Off : Hide 
  1964. Palette $184
  1965. Cls 0 : Curs Off : Flash Off 
  1966. Locate ,3
  1967. Paper 0
  1968. Centre "What is this well known saying ?"
  1969. Wait 150
  1970. Locate ,3 : Cline 
  1971. Wait 60
  1972. Ink 6
  1973. Box 77,89 To 256,161
  1974. Ink 6
  1975. Bar 78,90 To 256,160
  1976. Ink 2
  1977. Box 76,88 To 258,162
  1978. Ink 6
  1979. Box 75,87 To 259,163 : Box 74,86 To 260,164
  1980. Wait 100 : Paper 6
  1981. Wait 30
  1982. Sam Play 8,5,10000
  1983. Locate 14,15 : Print "T"
  1984. Wait 30
  1985. Sam Play 8,5,10000
  1986. Locate 15,15 : Print "i"
  1987. Wait 30
  1988. Sam Play 8,5,10000
  1989. Locate 16,15 : Print "m"
  1990. Wait 30
  1991. Sam Play 8,5,10000
  1992. Locate 17,15 : Print "e"
  1993. Wait 80
  1994. Sam Play 8,5,10000
  1995. Locate 18,15 : Pen 4 : Print "-"
  1996. Wait 80
  1997. Sam Play 8,5,10000
  1998. Locate 19,15 : Pen 2 : Print "T"
  1999. Wait 30
  2000. Sam Play 8,5,10000
  2001. Locate 20,15 : Print "i"
  2002. Wait 30
  2003. Sam Play 8,5,10000
  2004. Locate 21,15 : Print "m"
  2005. Wait 30
  2006. Sam Play 8,5,10000
  2007. Locate 22,15 : Print "e"
  2008. Wait 80
  2009. Sam Play 8,5,10000
  2010. Locate 23,15 : Pen 4 : Print "-"
  2011. Wait 80
  2012. Sam Play 8,5,10000
  2013. Locate 24,15 : Pen 2 : Print "T"
  2014. Wait 30
  2015. Sam Play 8,5,10000
  2016. Locate 25,15 : Print "i"
  2017. Wait 30
  2018. Sam Play 8,5,10000
  2019. Locate 26,15 : Print "m"
  2020. Wait 30
  2021. Sam Play 8,5,10000
  2022. Locate 27,15 : Print "e"
  2023. Wait 150
  2024.  Locate 7,21 : Paper 0 : Pen 2 : Print "You have 30 seconds to think"
  2025.  Wait 150
  2026. Locate ,21 : Cline 
  2027. Wait 300
  2028. HLL:
  2029. Wait 75
  2030.  Locate 8,23 : Paper 0 : Pen 6 : Print "Press the A key for answer "
  2031. Clear Key 
  2032. Wait Key : If Key State(32)=True Then Gosub HVS : Rem Else Goto HLL
  2033. HVS:
  2034. Locate ,9 : Cline 
  2035. Ink 6
  2036. Locate ,21 : Cline 
  2037. Wait 50
  2038. Locate 19,21 : Pen 2 : Paper 0
  2039. Locate ,23 : Cline 
  2040. Centre "The answer is ..."
  2041. Wait 105
  2042. Locate ,23 : Cline 
  2043. Sam Play 8,1,10000
  2044. Locate 8,23 : Pen 2 : Print "Time after time after time !"
  2045. Locate 13,25
  2046. Wait 150
  2047. Sam Play 8,1,10000
  2048. Print "Were You Right ?"
  2049. Wait 150
  2050. Sam Play 8,1,10000
  2051. Locate 8,25 : Print "Time after time after time ?"
  2052. Paper 0 : Pen 5
  2053. Wait 150
  2054. Locate ,27 : Centre "If you dont understand press HELP "
  2055. Wait 150
  2056. Locate ,29 : Centre "Or press spacebar to continue"
  2057. HNKP:
  2058. Wait 75
  2059. Clear Key 
  2060. Wait Key 
  2061. If Key State(95)=True Then Gosub HSW Else Goto HONDAY
  2062. HONDAY:
  2063. If Key State(64)=True Then Gosub HAAC Else Locate ,30 : Bell : Wait 10 : Bell : Wait 10 : Bell : Centre "You have pressed the wrong Key" : Wait 75 : Locate ,30 : Cline : Goto HNKP
  2064. Wait 100
  2065. HSW:
  2066. Locate ,27 : Cline 
  2067. Locate ,29 : Cline 
  2068. Paper 0 : Pen 3
  2069. Sam Play 8,7,10000
  2070. Locate 0,25 : Centre "What's the matter is it time you gave up"
  2071. Sam Play 8,6,10000
  2072. Wait 120
  2073. Locate ,27 : Centre "It is TIME threeeee times.Plank!"
  2074. Locate ,30 : Pen 4 : Centre "Press SPACE BAR to continue"
  2075. Clear Key 
  2076. Wait Key 
  2077. HAAB:
  2078. If Key State(64)=True Then Gosub HAAC Else Goto HAAB
  2079. Wait 75
  2080. HAAC:
  2081. Wait 150
  2082. Locate ,29 : Cline 
  2083. Locate ,25 : Cline 
  2084. Locate ,27 : Cline 
  2085. Locate ,30 : Cline 
  2086. Locate ,27 : Pen 3 : Centre "I'm climbing to the top of the tree!"
  2087. Wait 55
  2088. SCNOFF[SCR]
  2089. Wait 150
  2090. Cls 0
  2091. End Proc
  2092. '  
  2093. '
  2094. Procedure SCNON[SCR]
  2095. For SD=-180 To 48 : Screen Display SCR,128,SD,, : For MAT=1 To 20 : Next MAT : Next SD
  2096.    For LOP=30 To 0 Step -10
  2097.       For LOP1=1 To LOP Step 5 : Screen Display SCR,,50-LOP1,,256 : View : Wait Vbl : Next LOP1
  2098.       For LOP2=LOP To 1 Step -5 : Screen Display SCR,,50-LOP2,,256 : View : Wait Vbl : Next LOP2
  2099.    Next LOP : Screen Display SCR,,50,,256 : View 
  2100. End Proc
  2101. Procedure SCNOFF[SCR]
  2102. For SD=48 To -256 Step -1 : Screen Display SCR,128,SD,, : For MAT=1 To 20 : Next MAT : Next SD
  2103. End Proc
  2104. Procedure WIPE
  2105. Ink 0
  2106.    For X=1 To 320 : Polyline 160,100 To X,0 : Next X
  2107.    For Y=1 To 256 : Polyline 160,100 To 320,Y : Next Y
  2108.    For X=1 To 320 : Polyline 160,100 To 320-X,256 : Next X
  2109.    For Y=1 To 256 : Polyline 160,100 To 0,256-Y : Next Y
  2110. End Proc
  2111. Procedure LASTBIT
  2112. Music Off 
  2113. Screen Open 0,640,256,16,Hires
  2114. Curs Off : Flash Off : Hide : Cls 0
  2115. Palette $F36
  2116. Cls 0 : Curs Off 
  2117. Paper 0
  2118. Wait 100
  2119. Locate ,5 : Bell : Centre "Well Done,that was the last one on this disc"
  2120. Wait 100
  2121. Locate ,7 : Bell : Centre "I hope you enjoyed it as much I as I did Doing it"
  2122. Wait 100
  2123. Locate ,9 : Bell : Centre "Be Warned,I am doing another one!!!! "
  2124. Wait 150 : Boom 
  2125. Pen 5
  2126. Locate ,15 : Centre "THE END"
  2127. Pen 6 : Wait 150 : Boom 
  2128. Locate ,19 : Centre "AU REVOIR!!!!!"
  2129. Wait 700
  2130. Cls 0
  2131. End 
  2132. End Proc
  2133. Procedure OPENBIT
  2134. Screen Open 0,320,256,16,LORES
  2135. Cls 0 : Curs Off : Flash Off : Hide 
  2136. Palette $0
  2137. Cls 0 : Curs Off 
  2138. Locate ,16 : Pen 4 : Paper 0 : Centre "Have Fun"
  2139. Paper 0
  2140. Wait 100
  2141. Wait 100
  2142. End Proc
  2143. Procedure _SPLURGE[SPEED,SOURCE,DEST]
  2144. 'SPEED=3 
  2145. 'SOURCE=1
  2146. 'DEST=2
  2147. Screen SOURCE
  2148. SOURCE_SIZE=Screen Height
  2149. Screen DEST
  2150. DEST_SIZE=Screen Height
  2151. V=Min(SOURCE_SIZE,DEST_SIZE)
  2152. Screen SOURCE
  2153. SOURCE_SIZE=Screen Width
  2154. Screen DEST
  2155. DEST_SIZE=Screen Width
  2156. H=Min(SOURCE_SIZE,DEST_SIZE)
  2157. For LOP=V-SPEED To O Step -SPEED
  2158. For LOP1=0 To LOP Step SPEED
  2159. Screen Copy SOURCE,0,LOP,H,LOP+SPEED To DEST,0,LOP1
  2160. Next LOP1
  2161. Next LOP
  2162. End Proc
  2163. Procedure ARF
  2164.    Screen Open 0,320,256,32,LORES
  2165.    Cls 0 : Curs Off : Hide 
  2166.    Palette $F0F
  2167.    Curs Off : Cls 0 : Hide 
  2168.    Paper 0 : Pen 3
  2169. Sam Play 8,8,10000
  2170. Locate ,10 : Centre "You have chosen Halfway"
  2171.    Wait 150
  2172.    Pen 5
  2173. Flash Off : Locate ,16 : Centre "Music by Luke Miller,thanks Luke"
  2174. Wait 100
  2175. Music 1
  2176. Wait 250
  2177.    Fade 7
  2178.    Cls 0
  2179.    Wait 50
  2180. End Proc
  2181. Procedure ALL
  2182.    Screen Open 0,320,256,32,LORES
  2183.    Cls 0 : Curs Off : Hide 
  2184.    Palette $F0F
  2185.    Curs Off : Cls 0 : Hide 
  2186.    Paper 0 : Pen 3
  2187. Sam Play 8,8,10000
  2188. Locate ,10 : Centre "You have chosen the beginning"
  2189.    Wait 150
  2190.    Pen 5
  2191. Flash Off : Locate ,16 : Centre "Music by Luke Miller,thanks Luke"
  2192.    Wait 250
  2193.    Fade 7
  2194.    Cls 0
  2195.    Wait 50
  2196. End Proc
  2197. OPENBIT